CAADate_INT <-
function(value){
.Call("CAADate_INT", value)
}
